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I. INTROVUCTIO^J : 


Thc6 pAogA.am A&ad6 icayine/t data ^Aom a UnivtAhaZ ^ofortat 

tapz and ovitpatb an tnteAmecUatz data &qX dn ca/id tmagz ^oAmat ^oa aiz o6 an 
tnpat data &zt aji vcuUjOa& data analysts dzvzlopmznt pAogAcm, Thz gzne/taC 
capabtUtl&i oaz 6umaAtzzd at bottom ■ 


1 ) dzxiodz tkz kzadzA AzaoAd oi thz antvzAtal ^oAmat tapz, 

2} QXtnazt all oa pant oi tkz zhannzls on thz anlozA&al ioAmat tapz. 
[Tkz zhannzl numBzAS oAz AzlatCvz] . 

3) zxtAact a Azztangula/i Azgton dz^lnzd by {tMt tinz (I START], 
Zatt llnz CrSTOPl, and a iZnz tklp ^actoA [TSKTP] ayid anologout 
zolwm^oA ptxzt valuzs JSTART, JSTOR, AhiV JSfCI?, [TSKIR oA 
JSKTP ^ 1, means ' no llnzt oAz skipped,] 

4) zxtAact and label any Azgton dz^lnzd by a non^AzctanguloA ^tzld 
OA fields wfUch ts a sabAzglon o^ 

5) Aandomly szlzxit a pzAczntagz 5AMPCT o^ thz Azgtons oA , which 
wzAz dz^tnzd tn 3 OA 4. 


II . IWPUT PARAMETER- 


'SAMKEV -1 
0 
? 

SAMPCr 

SEEV 

XSTART 

ISTOP 

ISKXP 

JSTART 

JSTOP 

JSKTP 


-only kzadzA AzzoAd ts decoded 
-dztzAmiyustic sample Is zxtAactzd 
-Aandom sample -is zxtAactzd 

-li SAWKH - 7 , pzAcznt o{t data to be Aandomly sampled 
-tl SAMKEV = 7, Initial seed ioA Aandom nmbzA gznzAatoA. 

[must be a positive odd tntzg ZA] 

-beginning line ioA sample [absolute line numbzA] 

-last line ^oA sample 

-line skip ^actoA Ui[ ISKIP ^ 1 , no lines axe skipped] 
-beginning pixel ^oA sample [Aelatlve pixel numbzA} 

-last pixel ioA sample 

-pixel skip lactoA Ui JSKJP = 1 , no pixels axe skipped) 



fJCHOUT 

MCHLST 

MfLVS 


fJV 


UtNLlN 

MAXLIW 




-mimboA oi cha.mzt& to 6e output 

-cULfiay 0 ^ fioZattoz. akctmeZ numbeAJ, oi MCHOUT channels 
to be. output 

-yiumbe/i oi noYi-^zctan.QuZcui iteJtdU to be de^tned It^ 

NbLVS - 0, then the n.eeta.ngulan negton de^tned by 
1ST ART etc, iL output} 

-awiay eoyvbxtntng S cha&acteA £teid TD {,oft each £teZd 
-a/iAay contatntng numbet oii venttcei each non- 
n.ectanguWi m the {,teZd -U a quadnaZateAaZ, 

then MV ^ 4} 

-cUiAay contdtnlng the mintmum line numbeA iofi each {^teld 
-aJOiay containing the maximum line number, ^on each iield 
-tJMo dimensional oAAoy containing the line coordinates o^ 
the ith vertex o^ the Ith iield ^or. d ~ 1 , . . MV+7 
[the i^irst coordinate is repeated as the NV+1 coordinate 
a la m?S) 

~a tMo dimensional array containing the pixel coordinates 
0 -^ the dtk vertex oi the Jth ^ield ^or 3=1, • . . , 

WI/+7 the ^irst coordimte is repeated as the MV+1 co- 
ordinate a la ERTPS} 

[the above vertices must be given in sequence such that 
the interior o£ the iield lies to the right. See 
Appendix A i^or the ERTPS documentation ^or the PVLMW 
routine] 
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IV, rWPUT FORMAT FOR PARAAJETET?S 


REQj 

SAMKEV 

ISTART 

ISTOP 

C7o^ no] 

REQ.: 

ISKIP 

JSTART 

JSTOP 

JSKIP 

C70X, 170) 

OPT: 

SAMPCT 

C70X, F70.0I 


SEED 

C70X, T70) 

REQ.: 

NCHOUT 

Cl OX, 170) 


NCHLST 

C70X, HI 2] 

REQ.: 

NF.LVS 

a OX, 170) 


^OA 1=7, .. 

,.,NFLVS NFLVS 


FTP [I I 


OPT: 

Ml/ [II 
MIMLIMCH 

CAS, 2X, 3T5) 


MAXLIMCn 

IFP,n 

C77X5) 


JF[J,TI 

C77I5) 


V. FORMAT OF rWPUT "PATA SET 


Th 2 . Input Vata Szt ts Aeact ^otn Toftthjxn untt 1 (PTOIfOOl] by tkz REAP 
Mxiutine,.- The. Input Vata Szt hat the. ^oMnat a UntveA&al Fo^at Image. Vata 
Tapi detcAtbed tn NASA Edftth Re^ooAaes Vata ' FoAmat ContAot Book. . {TR-543) . 

VI. FORMAT OF OUTPUT VATA ' <?FT 

FoA. each NCH cUmentlonat ptxeZ (X[I), I = 1, , . . , WCH) detected 

fiOA output, the. ^ottouxing AccoAd (SO byta) 1& mitten, onto FoAtAon unit 

3 [FT03F001], 

LINE numbeA 
PIXEL NUMBER 

^TV [ti not applicahZe. a blank it mitten] 

X[NCHISF {7)) 

X(NCHLST (2)) 

• 

I 

XiNCHLST (NCHOLfT)] 



Thz ^oHmat -c6 [214, AS, 1614], Tfi& togXaat Aedo/id tmgth Jji SO hc/t&6 and 

the. BLKSIZE t6 deteJtmZned 6y the. JCL coJid de.ityiing Eahtfuin antt 3. [ET05E001] , 


m. SUBROOnMES 

MIX -a/UiangeJi data ptxeZ fiatken. than channel 
RAWPU -Handom nmbeA geneJiato/i TTEM SSPI 

EVLMIM -detemlnes tnteJi&ectlon a non-^ectanguZaa llteA> ion. 

a scan tine, CFontnan ve/uton oi FU GRIPS utiJUty aouttne] 
READ -assembly language [360 OSJ blnan.y fiead Routine [Htnman] 



“tevEL 


-OS/360 ■ FOPTRAN-H-- 


CQMPILER OPTIONS - NAME= ^i0PT=02 tJL INeCNT-50»SIZF=OOOOK . . 

SOURCE., EBCDIC ,NOL 1ST ,NCDECK, LCAD,MAP, NOEC IT,ND IO,NOXREF 

• QQQ2 INTEGER SEED - • — 

0003 INTEGER BEG V I D^,REC LNG , REC END , ANCLNG, INDX ( 160 ,XXXX ( 2500 ) , 

ONE iSAMKE nSAKSI/ tNCHLST ( 16) 

OOOA L0GTCAL«1 Z (3 060) , Z2 ( 2 ) , X ( 10000 ) , OUT (16) 

0005 1NTFGER*2 ZI NT^ NR EC , L I N ,XX(5000) 

0006 DOUBLE PRECISION OVER , BLANK, CXXX , F I C 

0007 DIMENSION F ID (50) , NV( 5 0 ) , PINL I M50 ) , MAXL INI 50) , I F( 12 , 50) , 

* JF(12*50) ,INT(ll),OVER(lOOO) 

OOCS- DATA -8 LANK/* •/ 

0009 DATA OXXX/* $$$$$$$4*/ 

0010 DATA CLT/16#* • / .SAMS IZ/0/ ,L IN /□/ 

0011 EQUIVALENCE ( 2INT2 ,Z2 1 1 ) ) , (NPE C ,Z ( i ) ) , ( L IN Z( 7 1 ) ) , 

^ ^ (X(l) ,XX( 1) ) fiXili fXXXXMO) 




0012 
■0013“ 
0015 
0 016 

0017 

0018 
0019 
0020 _ 

0021 

0022 

0023 ^ 

0024 

0025 

0026 


READ HEADER RECORD ANC DECODE 


FOLLOWING VARIABLES 


NCH-- 

NCHl 

NCH2 

RECLNG 

RECBND- 

NPI X 

ANCLNG 

BEGVIO 

INOX- 


-NUMBER- CF-CHANNEtS 

NUMBER OF CHANNELS ON FIRST RECQ 
NUMBER OF CHANNELS ON OTHER RECO 
I^ECOFD LENGTH 

•NUMBER OF-RECORDS-pER--tAND 

.NUfBER OF PIXELS PER CHANNEL ;PER 


FIRST RECORD. OF BAND 
OTHER RECORDS OF BAND 


BAND 


■ LENGTH OF ANCILLARY BLCCK GN FIRST RECORD OF BAND 
• BEGIN VIDEO BYTE WITHIN SCAN 

IHITHIN TH AFPRC^IATE PE&RO 


CALL REAO(Z,LRCLG) 

-I F ( LRC LG^ L T . 0-1— &0-T0- 
ZI NT2 = 0 
Z2 (2) = Z{90) 

n:h=zint2 

Z2(1)*Z(92) 

Z2 (2)-Z(93) 

BEGVID = ZINT2- 

Z2(i)^Z(96) 

Z2(2)=Z(97) 

_NP_IX~ZINT2_ 

Z2(1) = 2U00) 

12 (2)=Z(101) 

RECLNG^ZI NT2 


2INT2=0 


IBM Large Area Crop Inventory Experiment (LACBE 
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IIAXPFLI-ICMPFLI 


REFERENCES 


1. Program Name - FDLNINT 

2. Programmer - R. J. Decker 

3. Language - PL/l 

U. LIHKEDIT Attributes - NCAL 

5. Inputs - Scan Line Number 

6'. Outputs - Intercepts (pixel numbers ) of scan line .and field sides 
7. Special Items - Calling sequence; 

CALL FDLNINT(P,L); 

where P = pointer to field definition table 
L = 11 element vector declared 


FIXED BIN (15) 


L(11) should be loaded with the scan line number 


On return, th e L vector will contain the ordered pixel intercepts. 


a return of 


12 


20 


0 


0 I indicates pixels 


through 7 and pixels 12 through 20 are contained in the field. ) 


(e.g. , 

5 


FUNCTIONAL DESCRIPTION 


This subroutine will return the pixel numbers *of those pixels on a given line that 
are contained within the boundaries, of a field. 

DETAILED LOGIC DESCRIPTION 


IIAXPFLI examines the number of vertices of the input field to determine if the 
field is a line-field or a polygon. If the input field is a line-field, then 
the intercepts are determined as follows : 

The intercept of the line-field and L-0.5 is calculated as P = (Xg-X^) 

(L-0.5-Y^) j (y^-Y^) calculation determines the projection of the 

intercept of the line— field and L+0.5 is calculated as P = (X^-X^) (L+0.5-Y^) 

i (y^-Y^) + X^- This calculation determines the projection of the intercept 

of L+0.5 onto L. These projections are examined to determine which is the 
left one (P,. ) and which is the right one (P_). P. is set to the integral 

value of P,.+0.5 and P„ is set to the integral value of P„ + 0.4999. 


Approval 

Approval 
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If the field is a polygon, then IIAXPFLI finds the pixel intercepts of a scan line 
and the sides of the input field. 

There are three distinct cases and each is handled separately; (l) the scan line 
intersects a side hut not at the endpoints (i.e., vertices), (2) the scan line 
intersects a vertex that is not an end of a horizontal line, and (3) the scan line 
is concurrent with a horizontal side of the field, 

FUNCTIONAL PLOWCHAET 


See Figure 1. 
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• * 

* • 

**♦ 


n * . 

X l 57 HtS*SiMr V '• 

. • . ♦ V , » 

» ^ '4 04 

444 • 41 ^ » ' >• Mf « 

• • ' • • • 

,• CO* ' , ••• 


; : 

• ZERO . * 


♦LEM TO RJCHt* 


.4 SI* 

• *• 


RETURN 


. * •nO 

♦ ^ WERTXCCS £0 2 t 




' , ftgrURN 


♦ CA.IC • 

♦1HT£PC6PTS DP* 

,in.4 SCaK LJM£ S • 

♦ SlOcS |hO • 

♦ venrs] • 


• ^ orCctiun , * V 


vAaiKMvvvfp*** < 

4 « 

• p m<jav«nt ♦ 

♦ Q( iCAH«**. . 


»4 < t««> «««««•«* 

4 IP AJ.UC^HI 

« L(<1^ Ua. ’4 • . 

♦ iWTJiCaPfS • V 


. 1 SlOU 

.*yC4»»»« 4* »«««♦« 

^'•SCilT 4* 

X* _ PkW . ♦ 


.* CA* 

>♦ , * 

• 4 i 0 


• *HH 

* • HcjShiSJlTlL * ' 


• PLACE • 

• WTMCEPfS IH* 

♦ vtCTon • 

♦ * 
4 »» 44 *** 00404 »* 


RErOflN • 


* C*IC « 
*lliT£ftCePTS EFA 

* SCAK LINE t A 

* VERTS INC • 

* HOAU ^iKES * 


* Ol/PUCAIE • 

• l«Ifii5c|P7 ♦ 
'•IHUST NA\E it* 

4 • 

*«*A** 9 **«A« 44 A 


a44l**««4« i«4«« 


e PTS t«* 

jii • : « 


A# *♦*#«««»*«•»» 


; i PcfuSi ; 




"• vJrtWSIl 

« 

• * 

^ 4 * 

* YES* 


**♦ « 


M. 


•iNTER^fp^S 
• Sector 


• 900 
4 • 

••f 


• PTBS 

Liftki CHEiIrID • ! 

* 4 400 

• « « Ca* 

NO « * 44 « 

.**• w* 


TIOJRE i rUJWCHAP? 



IIS 8811 




IS^J 0030 
[SM 0 031 
ISN 0032_ 

IS\ 0033 
ISN 0034 
IS'J 0035 

iSM 0036 
ISM 0037 
ISN 003^ 

ISM 0039 
ISM 0040 
ISN 0041 
ISM 0042 
ISM 0043 
ISM 0045 
ISM 0046 
ISM • 0047- 
ISM 0048 
ISM 0049 
ISM 0050 
-ISM 0051- 
ISM 0052 


ISM 0053 
ISM 0054 


ZINT2*0 
Z2(2J==2a04) 
REC8ND = 2I NT2 


Z2(1)*Z(X05) . . 

22 (2) =Z (106) 

^NCLNG = ZINT2 ^ 

Z2(l)=2U785) 

Z2<2)=2a786) 

NCM1=ZINT2 ^ 

ICT=0 

DO 20 I=lfNCHl 
ICT=ICT+1 

- 1 NO X ( I ) =ANC LNG*2 + ( I-l ) ><'N8IX<-1 = 

IF {REC8KD.EQ. U GO TO 40 
00 30 I=2,RECBI^D 
DO 30 J=1,NCH2 

IOT=ICT+l 

INDX(ICT)=2 + { Jrl)*NPIX+l -- •- ^ 

WRITE 16,200) NCHfNPIX,RECLNG,.NCHl,NCH2,RECaAI0, ANCLNG»BEGVIO 
WRITEC6,201J (I ,INOX( 11,1^1, NCH) 


WRITE (6,202) 
FORMATdHl ,« 


FORMA T(1H 


) Z - 
,«NCH = 
NPIX = 
RECLNG * 
NCHl = 
NCH2 ? 
RECBNO » 
ANCLNG ' 
-B6CV1D- 
•I NDX(» ,12 


202 FORMAT(100(/,5!(2X,10Z2J J) 


* ,16,/ 
,16 ,/, 
,16 ,/, 

, 16 ,/ , 
r 16 ,/ , 

• ) = « 



,18) 


READ SAMPLING PARAMETERS 


SAMKEY-=-’ 


SAMPCT 

-SEED 

I START 


r? ChLY HEACER-RECORC—IS— CfeODEO 

^ DETERMINISTIC SAMPLE 

- RANDOM S AMPLE 

- PERCENTAGE CF DATA TO BE S.AMPLEC RANDOMLY 

- -SEED FOR- RANOCM-NOMfiER-GENERATOR ^ ^ 

- BEGIN LIAE FOR SAMPLE I ABSOLUTE LIME NUMBER:) 



I STOP 
I SKI P 

JSTART 

JSTCP 
JSKI P , 
NCHGUT 
NCHLST 


LAST LINE FOR SAMPLE 

LINE SKIP FACTOR IT? ISKIP'=0t NC LINES ARE SKIPI 
BEGIN PIXEL- FCR -SAMPLE' ( RELAT-TV-E-p-IXEL- NUMBERi— 
LAST PIXEL FOR SAMPLE 

PIXEL SKIP FACTOR {IF JSKLP-O, NO PIXELS ARE SK 
NUMBER OF CHANNELS TO BE OUTPUT 

A P RA Y CF-CH A N N EL“ LOS— T O ~ B E - OUT-PU'T~{-REtATtve'i 


0055 

0056 

0057 
0058 - 
0 059 
0060 
0061 
0062- 

0063 

0064 

0065 
0066- 

0067 

0068 
0069 
0070- 

0071 

0072 


READ{5»1000) SANKE'* 

WRITE (6,100 7) SAMKEY 
IF { SAM KEY) ^lf42 ,42 

•STOP 

RE An (5, 1000) I START, I STOP ,IS KI P , JST A PT , J STOP, JSK IP 
WRITE (6,1008) I START, ISTQP ,ISKIP, JSTART, JSTOPfJSKIP 
IF(SAMKEY) 44,44,43 

READ(5,1002) SAMPCTjSEED 

IX*SEED 

WRI TE (6,1009) SAMPCTfSEED 
SAMPCT = SAMPCT/100, 


ICOO 

1C02 

-IC03 

10C7 

1008 


-iCCS 

1010 

ICll 


200C 

2001 


READ(5,1000) NCHCUT' 
REAO(5,1003) INCHLSTI I) ,1=1 
FORMAT (lOX, I lOJ 
FORMAT (10X,F10;.0 ,/ ,10X,I10) 

FORMA7(10X,i6i2) 

F0RMAT(IH1,*SAMKEY = • , H 

FQRHATdH ,*ISTART = *,11 

* I STOP •-= ',il 

• I SKIP = • , II 

• JSTART = * , II 

» JSTCP = « , II 

« JSKIP = »,I1 

FORMAH “ ■ SAMPCT =-»-,FlO-2 

FORMAT {' NCHOUT * *,110) 

FORMAT (* NCHLST = »,16I5) 

READ! 5, 2000) NFLDS 

WRI'TE (6,2001) .NF-LDS- 

FORMAT (lOX, 110) 


NCHOUT) 


FORMAT! “ 
FORMAT (' 
FORMAT ( * 


= • , 1 10 ) 

= *, 110 ,/, 

= ', 110 ,/, 

■ -= • , 1 10 

= * , 110 ,/, 

= *, 110 ) 
••,FlO-2/r*~-S 
• , 1 10 ) 

» ,1615) 


FORMAT (IH ,« NFLDS = *,110) 

IF (NFLDS) 440,440,438 

00-439 NF=1, NFLDS —— 

READ (5 ,2002) FID(NF) ,NV( NF) ,M INLINI NF) , MAXL ININF ) 
NVS=NV(Nf) + '1 

RE AD {5, 2003) {-IF ( J ,NF ) , J= 1 ,NVS ) 

RE A 0 ( 5-,-2003 ) “■-( JF ( J NP )-, J=-X « N V S-) 

DO 6C5 11=1, NVS 


1 10 ) 


J^'NVS-HM 
J1 = J«-1 

IF( JlvNFJ-IF( ) — : 

605 JF ( J1*NF)=JF{ J,NF) 

IF (1,NF)=IF <NV5 »hFJ 
JF { 1,NF)=JF (NVS »^F) 

— - - IF<MVS + 2,NF) = lf {3,^F) 

OF (NVS + 2,NF)= JF (3 ,^F) 

NV3=N\)S+2 
WR I TE 16 ,2004) ^F 

WRI TE <6,2005) FID( -^F) ,NV( ^F) vMiNtW-^v-F^A-} 

WRITE <6 ,2006) (IF < J,NF ) ,0 = 1 , NV3) 

,439 WRI TS <6 ,2007) ,< JF ( NF ) , 0 = 1 , NV3 ) 

2C02 F0RMAT(A8,2X,3I5) 

-20C3-FGRMAT<11I5) 

2004 FORMAKSX, 'FEELD = ’,110) 

2CC5 F0RMAT<5X, 'FIELD IC = •" ,A8, 

# 5X, • NV = • ,110,/ , 

-5X » • MI MI N— =- , II 0-,7t 

* 5X,»MAXLIN = «,IXO> 

2006 FORMAKSX,' LINE = *,1215) 

2CC7 F0RMAK5X, *PI XEL = *,1215) 

~440“CONTINLE- — — — 


;-,I10|/-,- 

' ,12 15) 

• ,12 15) 


-WRITE- -DATA I NTO -.CCS -FCRNAT — 


SAMSIZ- = 0 

50 CALL READ(2,LRCLG) 

IF (LRCLG.LT.O) GC TO 999 
IF<NREC-1) 55 ,65,60 


0112 

0113 

0115 ' 

0116 

0117 

0118 
0120- 


LINE=LIN 

IF (LINE.GT.ISTCP) GO TO 999 

LS=LINE“ISTART ' 

WRITE <6,307) LINE 
F0RMAT(20X,I1Q) 

IF ( LS.GE.O) GO TO 552 
IF-IRECSND.LE.-D 'GQ TO-50— — 


550 CALL READ! Z,LRCLG) 

I-F“<-tRC-tGiirT-.0 )-'G0--TC-999- 

IFINREC-1) 55 ^55,550 




rssi 0126 

ISM 0127 


552 LSM=LS/ISK! P*I SKIP-LS 
~ • -IF (LSM.NE^OJ GO-Tf>“55^ 


IS.M 0 129 
ISM 0130 

ISM 0131 
ISM 0132 
ISM 0133 
'ISM 0134- 
ISM 0135 
ISM 0136 
ISM 0137 
ISM 0139- 


S55 00 56 1=1,2500 
5i XXXXd )=0 

KREC = 1 

n: t=o 

DO 57 I=l,NCHl 

NC- T=NC T-H 

IND = IKDX(NCT) 

57 CALL Mrx(2JINDl ,KCT,NPIX,X,NCH) 
IF<NCH2.EQ;0J go TC 7329 

€□ TO 50 " "--r -7- 


ISM 0140 
ISM 0141- 
ISM. 0142 
ISN . 0143 
ISN_ 0144 

ISN 0145 


ISN 0147 
•ISM 0148 

ISM -0149- 
ISM , 0150 
ISM 0151 
ISM 0152 


ISM. 0153 
ISM 0154 
ISN 0155 
iSN - 0156- 
ISM. 0158 
ISM 0159 
ISM 0X60 
- ISM --0 161- 
ISM 0162 


60 KREC=KREC+1 

DO 61 I=l-,NCH-2 

NC T=NCT+l 
IND=INDX NCT) 

6^ CALL MIX Z(IND) ,NCT tNPIX , X ,NCH ) 

IFIKREC.lt. REC6N0} GO TO 50 

VsRITE DATA TO OUTPUT CAT A SET 

7329 C04MTINLE ...... 

IF(NFLDS) 675,675,659 

—659 DO 660 iP=l,NPIX 

. 660 OVER!! P)*OXXX 

DO 665 NF = 1 .NPLDS 

CALL FOLNINILI.NE ,NVJ NF ) , I F (1 ,NFJ , J F( 
-« MAXU MNF-l) 

^,R I TE (6,6660) LINE .NF, I NT 
1666 0 FORMAT I30X, 21 10j»U 15 7 

DO 66 8 IM=1,5 
K= I NT (2*1 M-1) 

KK=INT( 2*1M) 

IF {K,EC.OJ -'GO-lTC-67a 

DO 669 JK^K,KK 
669 OV£R( JX)=FID(NF7 
6 70 CONTI NL'E 

— 6'fr8-C8N Ti-1ML-£ 

665 CONTINUE 



-ISM -0163- 
ISN 0164 

ISN 0165 

ISM 0167 

ISN 0169 
ISN 0170 
ISN 0171 
ISN 0172 
ISN^ 0173 

ISN 0175 
ISN 0176 

ISN 0177- 
ISN 0179 
ISN 0180 
ISN OlSl 
ISN“ 0182- 


-675'-C0NTIN0E 

DO 80 I=JSTART.,JSTCP» JSKI P 


c 

c 


IF (NFLDS.LE.O) GC 70 680 

IF lOVER(IJ.EQ.DXXX) GC TO 80 


680 CONTINUE 

■ IFISANHEY) 75 ,75,70 • 

7C CALL RANOU(IX,IY,YFL) 

IX = IY 

IF ( YFL.GT.SAMFCT) GO TO 80 

E ^ 

75 DO 78 J=l,NCHOUT 

78 QUT<J)=X(U =-l)=^^CH + NCHLSTU)) 

C 

IF (NFLDS.LE.O)- 0V£ P< U = 8L~ANK 

WRI T6 (3 ,300) LINE, IjOVERUJ , (OUTiJ) ,J*1, NCHOUT ) 
3CQ FORMAT (214, A8 ,1614) 

SAMS! 2 = SAMSiZ + I 

- — 80 CDNTINLE 


0183 

WRITE (6p01) L 

0184 

3 01 FORMAT (2X',2 15 ) 

0185 

GO TO SO 


0186 

0187 

0188 

0189 

0190 
0191 - 

0192 

0193 

0194 


999 QNE=-1 

— DO 90 I=lilOO 

90 ^^Rr TE (3,400) CKB 
400 F0RMAT(I4,76X) 

WRITE (6,405) SAMSIZ 
-^05~FORMAT( »- SAMS-tZE--»-»-f I XO" 
ENOFILE 3 
REWIND 3 
STOP 

END 


LEVEL 21,8 L“;JUM“?4- ) 


0S/36b-'-F0PTRAN H 


A-T£ 


COMPILER CPTIONS - 


»TI0NS - NAME= K 
SOURCE, e 
-SUBRQLTINE MI XI 2 
LOGlCAL^l ZU)4X 
DO 1 I»1,NPIX 


KAI^,QPr=02,LINEC^iT*50^SlZE=00OaK, ^ ^ 

eaccic ,NCL ist ,ncdeck,lcad,ma.p, noedit, noio,noxref 
2 .ICHfNPIX'fXrNC'H—^ 

XCl) 


LOC = n-l)*NCH+<lCH 

a'-x<Loc)=z(n 

RE TURN 
END 





LEViEi ) 


•CS/360- FQSTRAN-H'-- ’■■ 


DATE ' -f 


COMPILER OpTiOKiS - NAME- MAI A,0PT=0 2 ,1 1 IMECNT = 50iSI ZE=OOOOK , 

SOURCEs,eBCCIC,NOL 1 ST ,NCDECK, LCAO ,MAP« NOEDIT® NO I 0 ,(v!OXR E^ 

- 1 SN ~ 0002 ^ SUBROL TINE' RA NDU ( I X ,1Y> YF Li " 

ISN 0003 IY=IX^£553<3 . 

ISN 0004 IF UY) 5 56,6 

ISN 0005 5 IY=IY+2147483 647 ♦ I 

ISM--OQ06 -i-YFL=!V-" ^ 

ISNI 0007 YFL=YFL=»*4656 613E-g 

ISN 0008 RETURN 

ISN 0009 END 




- LEVEL 21,8 -f"JUN“74- •) 


CS/3 60 " FGRf RAN H' 


DA TE 


COMPILER 


■iS'4 

ISNI 

ISM 

ISN 

ISM 

ISN 

ISM 

ISN 

ISM 

ISM 

ISN 

ISN 

ISN 

ISM 

ISM 

ISM 

ISM 

ISM 

IS.M 

ISM 

ISN 

ISM 

ISN 

ISN 

ISM 

ISM 

ISM 

ISN 

ISM 

ISM 

ISN 

ISN 

ISN 

JSN 

ISM 

ISM 

ISN 

■ISM 

ISM 

ISN 

ISN 

■ISM 

ISM 


0002 
0 003 

0004 

0005 
0 006 

0007 

0008 
OOLO 
OOil^ 
0012 

0013 

0014 

0016 

0017 

0018 
0019 
0 020 
0022 

0023 

0024 

0026 

0027^ 

0028 

0029 

0030 

0031 
0033 
0035 
0037 
0 039 
OO'^l 

0042 

0043 

0045 

0046 

0047 

0048 
0 049- 
0051, 

0052 

0053 
0055- 
0056 


1 

-15- 


' 1 - 2 -- 


14 

SO 


20 


21 

-16- 

17 


OPTIONS - NAME= PA I 0PT=0 2 .L I N ECNT = 5 0,S 12 E=OOOOK , 

SOURCE, EBCCIC ,NGL 1ST , NCCECK , LC AD , MAP , NOE C IT, NO I D ,NOXR EP 

SUBROUTINE FDLNIN (L'» NV ,Y ,X , INTtMINL-INtM-AXL-IN-) 

INTEGER YI12) ,^XU2),INTUl),CUy 

REAL PTS(LO) 

nvi=nWi 

•" DO 10 1=1,10 - 

1C INTII 1=0 

IF! L.LT.MINLI N.CR. L.GT,PAXLIM RETURN 
DO 15 1=1,10 

PTS(I)=C, - 

IPT=0 

DO 12 I=2,NV1 

IF<,NCT.IL.GT.’MINOIYm sY U + il l.AND.L.LT -MAXOI YI 11,71 I^.ll lU 

— ♦ ■ GO .TO 12 

IPT=I P1+1 

PTS (IP T)= (FLOAT! (L-Y( 1)1* (X( 1+1) -X( 1)1)1/ 

« (FLOAT(y,U+l)-YU)) l+FLOAT(X( I n 

CONTINUE 

DO 14 I=2,NV1 

IF( .NOT, (L.EQ.Y(I) .AND. L.NE,Y( I-U •AN'C.L.NE*V( Ul) DGO TO 14 
IPT=IPT+1 

- - PTSd PT)=FtOAX{X(I 1) 

IF ( .NOT.UL. LT^YU -1) . AND.L. LT .Y( I + l ) ) .□ R.( L .GT .Y( I- D.AND. 

« L.GT.Y(I+1J n )G0 TO 14 

IPT=I PT+1 

- PTStI PTJ=PTS( IPT-1 ) 

CONTINUE 

J=l 

J=J+1 

IF( J.GT.NV) GC" TC 100 

IF I Y( Jl.NE. L) IGC TC 5 0 
IF ( Y( J+1).NE, U) GC TO 50 
IF (X< J+11 ,LT. X.(J) ) GO TC 16 

- Ir(Y(J-lJ.Ge, U GC TO 20 

IPT=I PT+1 
PTS(IPT) = X( J) 

IF( Y(J+2).GE. Li GO TO 21 

-- IP7=I P7+1 

PTS(IP7) = X{ J+il 

J=J+1 

GO TO 5C 

I F ( Y ( J- 1} . LE i L)--G C- TO -17 

!PT=IP7+1 
PTS(IPT) = X( J) 
iF(Y{J+21.LE.U GO TO 18 

iPT=iPT+l— 

PTS(IPT)=X( J+U 



ISf^i 00 57 
ISN 0058 
ISN' 0059 — 
ISNJ 0060 
ISN 0061 
ISN 0062 

ISN 0063 

ISN 006A 
ISN 0066 
ISN 0067 - 

ISN 0068 — 
ISN 0 069 
ISN 00 70 
ISN 00 72 
ISN 0073 — 
ISN 0074 
ISN 0C76 
ISN 0077 
ISN 00 78 — 
ISN 0 0 79 
ISN 0080. 
ISN 0081 

ISN 0083 

ISN 0084 
ISN 00 85 
ISN 0086 

ISN 0088 

ISN 0089 
ISN 0090 
ISN 0091 

ISN -0092 

ISN 0093 
ISN 0095 
ISN 0096 
ISN 0097 — 
ISN 0098 ' 
ISN 0 099 
ISN 0100 
ISN OiOi 
ISN 0102 
ISN 0 104 
ISN 0105 
ISN 0 106 — 
ISN 0107 
ISN 0108 
ISN 0109 
ISN-OliO 


J = J+i 
GO TO 50 

-CGNTlNie 

IPTi = i PT-1 
DO 30 K=^l,IPTl 
Kl = K+l 

-DO 30 I=K1,IPT ^ 

IF (PTSU) .GE. FnsIK)) GC TC 30 

DUM=P1Sm 

PTSm=PTS(K) 

■PTS(K)=OUM 

CONTINtE 

IF ( IPT.EQ.2I GC TO 103 
IPT2=IPT-2 

rDO-40 I=2»IPT2^-2 

IF <PTSm«^E. P.TS(I+in GO TO 4 

PTSU )=-l 

PTS(I-M)=-1 

-CONTI Nce - — — 

K=0 

DO 110 I«1,IPT^2 
IF (PTSlD.EQ.-l) GC TC X05 

-K=K+1 - • 

lNTtKJ = PTSCU +.499 
CONTINLE 

IF {PTSlI+D.ECfc-D GO TO 110 

-K=K+1 

INT(Kl = PTStUU + ,500 

CONTINLE 

IPT2=IPT-2 

• OQ- 60 1=2,1 PT2"»2 

IF UN7(I). ^E. IMII+l) J GO TO 6 

INTm*0 

INTU +1J = 0 

CONTINLE - ' 

IPT1 = IP7-1 
DO 70 K=l,IPTl 
K1 = K*-1 

' OD 65 I =K1 ,IPT 

IF ( .NOT. (I NT( I.}. ^E.0« AND. INT ( I 

OUM=INY{n 

INTti ) =INT!K) 

' INT(K) =DUM 

CONTINLE 
CONTINUE 
. RETURN 

-END r 




PRCGFAM OFFICEr PHILCO-FORD 


•i-READ 

-■i 

y/ 

* 



* 

READ 


JREA0_ERIPS LOG TAP£_ 

LARRY HrNMA^, EARTH RESOURCES 
CALL-RaL0GT(8UFADR'5~RCCL-NG) ” 




CSECT 

SAVE (14,12) 

-IR -2', 15 

LSING READ ,2 
LA 3, SAVE 
ST 3,8(13) 

-ST- 13,4(3): 

LR 13,3 

3 ,OU) 

5,4(1) 

7,TAPEDCB 
IHADCB,7 ■ 
DCB0FLGS,X»10* 
-INPUT 


L 

-L 

LA 

LSING 

TM 

-BC — “ 

CPEN 


SAVE REGS 

■SET -BASE 

ASM BASE 

NEW SAVE AREA ACCR 
LSA 

HSA 

SAVE AREA ADCR 


ADDF CF BUFFER 

ADD P OF •WCRO-R-CR-R-See-R C LN ' CTH - 
ADOP OF CC8 
SECCND BASE 
TEST FCR CPEN 

-DCB IS- OPEN 


- INPOT- 

— OS 
READ 

CHECK 


L i 

LH 

SH 

RTNO 


RETURN 

DS 1 

L 

RETURN 

END DATA 

<'</5 
t— < 

EPsROR 

D 1 

CS 1 


UNPK 

IR 

MVC 1 


ST 

UNPK 
■ 'IR 

FIT 1 

SR 

BR 


( TAPEDCB, ,LPDCB,CUTPUT) INIT CCB'S 

OH R EACRECc’rOS-“FF CM-CCi)- 

INDECB,SF,TAPEDCB,(3) ,* S» READ RECORD 

INDECB CHECK READ 


8,IN0ECB+16 
4,DCB8LKSI 
4,14 (8) 


ICB ADCR 

R6CCRD S IZE READ 
LENGTH OF RECCPC READ 


OH 

4,0(5) 


SET RECORD LENGTH IN BYTES 
RECORD LENGTH TC CALLER 


OH 

13 


3.SAVE+4 
(14 ,12) ,T 


OH 

0(5) ,X*FF 
RETURN 


RETLRN LOGIC 
OLD SAVE AREA ACDR 
RETURN TC CALLER 


END CF INPUT 

SET RECORD LENGTH TO .NEGATIVE 
RETURN TC-CALLER-- 


OH 

0, FI ELD ■ ■ 

TMP(5J ,FIELD(5) 
TMP(8),TASLE-240 
ERRMSG+40(8) ,TMP 


READ EFRCR OCCURREC 

DSCe ADOP - • 

CCNVERT TO PS EU CO- E BC D IC 
CONVERT TO EECCIC 
MOVE TC OUTPUT BUFFER 


1 tFIELD 

TMP(S)jFl EL0(5) 
TMP(8),TA8LE-r240 
ERRMSG+60 (Q)feTMP- 

LP0C8',ERRMSG I 

4,4 

14 


ERRCR BITS AND CCB ADCR 
CCNVERT TC PS EuCQ- E BCD IC 
CCNVERT TO EBCDIC 
MOVE TC CUfPUT -eUFFER 

OUTPUT. ERROR MESSAGE 
ERRCR CCCURRcD 
RETURN TC SYSTEM 



^ CA-T/ir- - 

$ 

DS OF 

FIELD CS CL5 

-- TMP DS CL9' ■ 


“• - TAPEDCS - DCB KiACRF=R tREC FP,=U TeLKSIZE=8800 , EGCAC-ENOCAT-A*,- X” 

DSOP.G=PS,DDKAME= FTOIFOO l,SYNAO=ERRCR, OSVD-TAi EPOPT-~ACC 


♦ 

IPDCB 


DSURG=PSfMACRF = PF,BLKSIZE= 133 ,LRECL=i33f RECFM=FBf-t, 
-OONANE^LP ^ 


X'09*fCL132«»*READ ERRCP, PECCRD IGKQREC*#* 


TABLE 

* 

• "SAve— 


CGBD 


C *0123456789ABCDEF" 

_jgp 


DSORG=PS' 



